Nacionalni računi - kvartalno

BDP - medletna rast

BDP - četrtletna rast

BDP - stalne cene (2010) - desezonirano

Spremembe zalog - prispevek k rasti BDP

Bruto investicije & končna potrošnja - medletna stopnja rasti

Medletna rast BDP in komponent

Prispevki agregatov potrošnje k rasti BDP

Izdatkovna struktura BDP - predelovalne dejavnosti

Kazalniki aktivnosti

# prep_l <- prep_multi_line(spl[[6]], con)
# cat("  \n####", "Indeksi industrijske proizvodnje - področja")
# dygraph_plotter(prep_l)
# 
# cat("$$$$")
# 
# cat("  \n")
# prep_l <- prep_multi_line(spl[[8]], con)
# cat("  \n####", "Indeksi industrijske proizvodnje - področja - desezonirani")
# dygraph_plotter(prep_l)
# 
# cat("$$$$")
# 
# cat("  \n")
# 
# prep_l <- prep_multi_line(spl[[7]], con)
# cat("  \n####", "Indeksi industrijske proizvodnje - zahtevnost")
# dygraph_plotter(prep_l)
# 
# cat("$$$$")
# 
# cat("  \n")
# prep_l <- prep_multi_line(spl[[9]], con)
# cat("  \n####", "Indeksi industrijske proizvodnje - zahtevnost - desezonirani")
# dygraph_plotter(prep_l)
# 
# 

Gradbeništvo

# 
# 
# prep_l <- prep_multi_line(spl[[10]], con)
# cat("  \n####", "Realni indeks opravljenih del v gradbeništvu")
# dygraph_plotter(prep_l)
# 
# cat("$$$$")
# 
# cat("  \n")
# 
# prep_l <- prep_multi_line(spl[[11]], con)
# cat("  \n####", "Realni indeks opravljenih del v gradbeništvu - desezonirani")
# dygraph_plotter(prep_l)
# 
# 
# 
# cat("$$$$")
# 
# cat("  \n")
# 
# prep_l <- prep_multi_line(spl[[42]], con)
# prep_l2 <- prep_multi_line(spl[[43]], con)
# purrr::reduce(prep_l2$data_points, dplyr::left_join, by = c("period_id", "period")) %>%
#   dplyr::relocate( period) |>
#   dplyr::select(-dplyr::starts_with("raw")) |>
#   dplyr::select(-period_id) -> data
# colnames(data)[-1] <- prep_l2$legend_labels
# 
# prep_l$data_points[[1]] |>
#   left_join(data, by = "period") -> x
# cat("  \n####", "Prispevki agregatov potrošnje k rasti BDP ")
# dygraph_plotter(prep_l)
#